Const HELP_CONTEXT = &H1 ' Display topic in ulTopic
Const HELP_QUIT = &H2 ' Terminate help
Const HELP_INDEX = &H3 ' Display index
Const HELP_CONTENTS = &H3&
Const HELP_HELPONHELP = &H4 ' Display help on using help
Const HELP_SETINDEX = &H5 ' Set current Index for multi index help
Const HELP_SETCONTENTS = &H5&
Const HELP_CONTEXTPOPUP = &H8&
Const HELP_FORCEFILE = &H9&
Const HELP_KEY = &H101 ' Display topic for keyword in offabData
Const HELP_COMMAND = &H102&
Const HELP_PARTIALKEY = &H105&
Const HELP_MULTIKEY = &H201&
Const HELP_SETWINPOS = &H203&
Private Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long
Private Sub Close_Click()
End
End Sub
Private Sub Command3_Click()
End Sub
Private Sub HelpButton_Click()
' Start the Help file
Dim helpfile As String
helpfile = "regexp.hlp" & Chr$(0)
Temp = WinHelp(hwnd, helpfile, HELP_INDEX, 0)
End Sub
Private Sub Match_Click()
Dim Match As Boolean
Dim str1 As String, str2 As String, str3 As String, str4 As String
On Error GoTo ErrorHandler
Match = RegExp(inputString.Text, RegExpInput.Text, str1, str2, str3)
Dim subExpNum As Long
subExpNum = Val(subNum.Text)
Match = RegSub(inputString.Text, RegExpInput.Text, Substitute.Text, str4, subExpNum)
res1.Text = str1
res2.Text = str2
res3.Text = str3
res4.Text = str4
If Match = True Then
MsgBox "String Matches", vbOKOnly, "Match Result"
Else
MsgBox "String does not match.", vbOKOnly, "Match Result"
(.txt)